import Data.Char
import Data.List

euler_024 :: String
euler_024 = (sort $ map (map intToDigit) (permutations [0,1,2,3,4,5,6,7,8,9])) !! 1000000